p{-}co{-}filter($f$)($x$) $\,\equiv$$_{\mbox{\scriptsize def}}$$\;\;$case $f$($x$) of inl($p$) =$>$ inr $p$  $\mid$ inr($p$) =$>$ inl $x$